﻿Public Class UsuarioNegocio

    Public Function insertar(ByVal idUsuario As Integer,
                             ByVal idRol As Integer,
                             ByVal nombre As String,
                             ByVal correo As String,
                             ByVal paterno As String,
                             ByVal materno As String,
                             ByVal dni As Integer,
                             ByVal direccion As String,
                             ByVal fechanacimiento As String,
                             ByVal estadocivil As String,
                             ByVal clave As Integer,
                             ByVal telefono As Integer,
                             ByVal ciudad As Integer) As Usuario

        Dim modelo As New Usuario()

        modelo.idUsuario = idUsuario
        modelo.idRol = idRol
        modelo.nombre = nombre
        modelo.correo = correo
        modelo.paterno = paterno
        modelo.materno = paterno
        modelo.dni = dni
        modelo.direccion = direccion
        modelo.fechanaci = fechanacimiento
        modelo.estado = estadocivil
        modelo.clave = clave
        modelo.telefono = telefono
        modelo.ciudad = ciudad

        Dim dao As New UsuarioDAO
        Return dao.insertar(modelo)
    End Function

End Class
